home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / fgl105c.zip / 13-02.C < prev    next >
Text File  |  1991-05-09  |  541b  |  27 lines
  1. main()
  2. {
  3.    int volume;
  4.  
  5.    if (fg_testmode(9,0) == 0) {
  6.       printf("This program requires a PCjr or ");
  7.       printf("a Tandy 1000 system.\n");
  8.       exit();
  9.       }
  10.  
  11.    printf("2048 Hz periodic noise...\n");
  12.    fg_voice(4,2,15,3);
  13.    fg_waitfor(18);
  14.  
  15.    printf("2048 Hz white noise...\n");
  16.    fg_voice(5,2,15,3);
  17.    fg_waitfor(18);
  18.  
  19.    printf("500 Hz tone of increasing volume...\n");
  20.    for (volume = 1; volume <= 15; volume++) {
  21.       fg_voice(1,500,volume,0);
  22.       fg_waitfor(4);
  23.       }
  24.  
  25.    fg_quiet();
  26. }
  27.